inherited frmRegiao: TfrmRegiao
  Left = 1039
  Top = 656
  Width = 627
  Height = 251
  Caption = 'Cadastro de Regi'#245'es'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 172
    Width = 611
    Height = 41
  end
  inherited tbrBotoes: TsToolBar
    Width = 611
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 611
    Height = 107
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 611
        Height = 107
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel2: TsLabel
          Left = 15
          Top = 32
          Width = 88
          Height = 13
          Caption = 'C'#243'digo da Regi'#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel1: TsLabel
          Left = 15
          Top = 61
          Width = 68
          Height = 13
          Caption = 'Nome Regi'#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object cedCodRegiao: TsCurrencyEdit
          Tag = 2000
          Left = 119
          Top = 28
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo da Regi'#227'o'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object edtNomeRegiao: TsEdit
          Tag = 1000
          Left = 117
          Top = 57
          Width = 412
          Height = 21
          Hint = 'Digite o Nome da Regi'#227'o'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object sPanel2: TsPanel
        Left = 0
        Top = 0
        Width = 611
        Height = 107
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 609
          Height = 105
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_REGIAO'
              Title.Caption = 'C'#243'd. Regi'#227'o'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME_REGIAO'
              Title.Caption = 'Nome Regi'#227'o'
              Visible = True
            end>
        end
      end
    end
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NOME_REGIAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO REGIAO (NOME_REGIAO)'
      'VALUES (:NOME_REGIAO)')
    Left = 272
    Top = 81
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NOME_REGIAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_REGIAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'UPDATE REGIAO SET NOME_REGIAO = :NOME_REGIAO WHERE CODIGO_REGIAO' +
        ' = :CODIGO_REGIAO')
    Left = 344
    Top = 81
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_REGIAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM REGIAO WHERE CODIGO_REGIAO = :CODIGO_REGIAO')
    Left = 416
    Top = 81
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM REGIAO'
      'WHERE 1 = 1'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      'ORDER BY CODIGO_REGIAO'
      ' ')
    Left = 48
    Top = 161
    object qryConsultaCODIGO_REGIAO: TAutoIncField
      FieldName = 'CODIGO_REGIAO'
      ReadOnly = True
    end
    object qryConsultaNOME_REGIAO: TStringField
      FieldName = 'NOME_REGIAO'
      Size = 50
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 112
    Top = 161
  end
end
